home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / TOOLBOX / GETOBJEC.DEF < prev    next >
Encoding:
Modula Definition  |  1993-03-12  |  2.5 KB  |  88 lines
  1. DEFINITION MODULE GetObject;
  2.  
  3. (*
  4. Manipulating AES Object Structure.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM RcMgr  IMPORT GPnt,GRect;
  12. FROM PORTAB IMPORT ANYPOINTER,UNSIGNEDWORD,ANYWORD,SIGNEDWORD;
  13.  
  14. IMPORT AES;
  15.  
  16. PROCEDURE Next(Tree : AES.TreePtr;
  17.                Index: AES.ObjectIndex): AES.ObjectPtr;
  18.  
  19. PROCEDURE Head(Tree : AES.TreePtr;
  20.                Index: AES.ObjectIndex): AES.ObjectPtr;
  21.  
  22. PROCEDURE Tail(Tree : AES.TreePtr;
  23.                Index: AES.ObjectIndex): AES.ObjectPtr;
  24.  
  25. PROCEDURE Extnd(Tree : AES.TreePtr;
  26.                 Index: AES.ObjectIndex): UNSIGNEDWORD;
  27.  
  28. PROCEDURE Type(Tree : AES.TreePtr;
  29.                Index: AES.ObjectIndex): AES.ObjectTypes;
  30.  
  31. #if no_set_return
  32. PROCEDURE Flags(Tree : AES.TreePtr;
  33.                 Index: AES.ObjectIndex): ANYWORD;
  34. #else
  35. PROCEDURE Flags(Tree : AES.TreePtr;
  36.                 Index: AES.ObjectIndex): AES.ObjectFlag;
  37. #endif
  38. #if no_set_return
  39. PROCEDURE State(Tree : AES.TreePtr;
  40.                 Index: AES.ObjectIndex): ANYWORD;
  41. #else
  42. PROCEDURE State(Tree : AES.TreePtr;
  43.                 Index: AES.ObjectIndex): AES.ObjectState;
  44. #endif
  45. PROCEDURE Spec(Tree : AES.TreePtr;
  46.                Index: AES.ObjectIndex): ANYPOINTER;
  47.  
  48. PROCEDURE X(Tree : AES.TreePtr;
  49.             Index: AES.ObjectIndex): SIGNEDWORD;
  50.  
  51. PROCEDURE Y(Tree : AES.TreePtr;
  52.             Index: AES.ObjectIndex): SIGNEDWORD;
  53.  
  54. PROCEDURE Width(Tree : AES.TreePtr;
  55.                 Index: AES.ObjectIndex): UNSIGNEDWORD;
  56.  
  57. PROCEDURE Height(Tree : AES.TreePtr;
  58.                  Index: AES.ObjectIndex): UNSIGNEDWORD;
  59.  
  60. PROCEDURE Pnt(    Tree : AES.TreePtr;
  61.                   Index: AES.ObjectIndex;
  62.               VAR Pnt  : GPnt);
  63.  
  64. PROCEDURE Rect(    Tree : AES.TreePtr;
  65.                    Index: AES.ObjectIndex;
  66.                VAR Rect : GRect);
  67.  
  68. TYPE ColorInfo = RECORD
  69.                    FrameColor : AES.ObjectColors;
  70.                    TextColor  : AES.ObjectColors;
  71.                    Mode       : AES.InsideModes;
  72.                    Pattern    : AES.InsidePatterns;
  73.                    InsideColor: AES.ObjectColors;
  74.                  END;
  75.  
  76. PROCEDURE Color(    Tree : AES.TreePtr;
  77.                     Index: AES.ObjectIndex;
  78.                 VAR Info : ColorInfo);
  79.  
  80. PROCEDURE StringPtr(Tree : AES.TreePtr;
  81.                     Index: AES.ObjectIndex): AES.StringPtr;
  82.  
  83. PROCEDURE String(    Tree : AES.TreePtr;
  84.                      Index: AES.ObjectIndex;
  85.                  VAR Str  : AES.String);
  86.  
  87. END GetObject.
  88.